From 6f55d5b91551c920ab3c37b5a19f7b2adc339832 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Sun, 25 Jan 2009 20:56:33 +0000 Subject: [PATCH] (mh-goto-header-end): Use mh-mail-header-separator instead of -* in regexp. --- lisp/mh-e/mh-utils.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el index b05c1d96775..7a263bc8123 100644 --- a/lisp/mh-e/mh-utils.el +++ b/lisp/mh-e/mh-utils.el @@ -860,7 +860,8 @@ Returns t if found, nil if not." ;;;###mh-autoload (defun mh-goto-header-end (arg) "Move the cursor ARG lines after the header." - (if (re-search-forward "^-*$" nil nil) + (if (re-search-forward (concat "^\\(" (regexp-quote mh-mail-header-separator) + "\\)?$") nil nil) (forward-line arg))) ;;;###mh-autoload -- 2.30.2